home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / gs_pdfwr.ps < prev    next >
Text File  |  1997-08-14  |  11KB  |  364 lines
  1. %    Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. %
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gs_pdfwr.ps
  19. % PDF writer additions to systemdict.
  20.  
  21. % This file should be included iff the pdfwrite "device" is included
  22. % in the executable.
  23.  
  24. % Redefine pdfmark to pass the data to the driver.
  25. % We use a pseudo-parameter named /pdfmark whose value is an array:
  26. %    key1 value1 ... CTM /type
  27. /.pdf===dict mark
  28.   /arraytype
  29.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  30.         % Stack: file obj left right
  31.       4 1 roll 2 index exch writestring () exch
  32.        { exch 2 index exch writestring
  33.      1 index exch pdfmark===only ( )
  34.        }
  35.       forall pop exch writestring
  36.    } bind
  37.   /packedarraytype 1 index
  38.   /dicttype
  39.    { 1 index (<<\n) writestring
  40.       { 2 index 3 -1 roll pdfmark===only 1 index ( ) writestring
  41.     1 index exch pdfmark===only dup (\n) writestring
  42.       }
  43.      forall (>>) writestring
  44.    } bind
  45. .dicttomark readonly def
  46. /pdfmark===only        % <file> <obj> pdfmark===only -
  47.  { .pdf===dict 1 index type .knownget { exec } { write==only } ifelse
  48.  } bind def
  49. /.pdfcvs        % <obj> .pdfcvs <string>
  50.  {        % We can't handle long values yet.
  51.    =string /NullEncode filter dup 2 index pdfmark===only
  52.    dup (\n\000) writestring closefile pop
  53.    =string (\n\000) search
  54.     { dup length string copy exch pop exch pop }
  55.     {        % The converted representation didn't fit.  Punt.
  56.       pop (???)
  57.     }
  58.    ifelse
  59.  } bind def
  60. /.pdfputparams        % <paramarray> <paramname> .pdfputparams <result...>
  61.  { currentdevice null false mark 6 -2 roll exch
  62.         % Don't allow the page device to get cleared....
  63.      {.putdeviceparams} 0 get .currentpagedevice pop {.setpagedevice} 0 get
  64.    3 array astore cvx exec
  65.  } bind def
  66. /pdfmark        % -mark- <key> <value> ... <markname> pdfmark -
  67.  { counttomark 1 add copy
  68.    matrix currentmatrix .pdfcvs exch ]
  69.    1 2 2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  70.    /pdfmark .pdfputparams
  71.    type /booleantype ne { cleartomark } if cleartomark
  72.  } odef
  73. userdict /pdfmark .undef
  74.  
  75. % Define setdistillerparams / currentdistillerparams.
  76. % Distiller parameters are currently treated as device parameters.
  77. /.distillerparamkeys mark
  78.         % General parameters
  79.   /ASCII85EncodePages { }
  80.   /AutoRotatePages { }
  81.   /CompatibilityLevel { }
  82.   /CompressPages { }
  83.   /CoreDistVersion { }
  84.   /DoThumbnails { }
  85.   /ImageMemory { }
  86.   /LZWEncodePages { }
  87.   /PreserveHalftoneInfo { }
  88.   /PreserveOPIComments { }
  89.   /PreserveOverprintSettings { }
  90.   /TransferFunctionInfo { }
  91.   /UCRandBGInfo { }
  92.   /UseFlateCompression { }
  93.         % Color sampled image parameters
  94.   /ColorACSDict { }
  95.   /AntiAliasColorImages { }
  96.   /AutoFilterColorImages { }
  97.   /ColorImageDepth { }
  98.   /ColorImageDict { }
  99.   /DownsampleColorImages { }
  100.   /ColorImageDownsampleType { }
  101.   /EncodeColorImages { }
  102.   /ColorImageFilter { }
  103.   /ColorImageResolution { }
  104.   /ColorConversionStrategy { }
  105.   /ConvertCMYKImagesToRGB { }
  106.   /ConvertImagesToIndexed { }
  107.         % Grayscale sampled image parameters
  108.   /GrayACSDict { }
  109.   /AntiAliasGrayImages { }
  110.   /AutoFilterGrayImages { }
  111.   /GrayImageDepth { }
  112.   /GrayImageDict { }
  113.   /DownsampleGrayImages { }
  114.   /GrayImageDownsampleType { }
  115.   /EncodeGrayImages { }
  116.   /GrayImageFilter { }
  117.   /GrayImageResolution { }
  118.         % Monochrome sampled image parameters
  119.   /AntiAliasMonoImages { }
  120.   /MonoImageDepth { }
  121.   /MonoImageDict { }
  122.   /DownsampleMonoImages { }
  123.   /MonoImageDownsampleType { }
  124.   /EncodeMonoImages { }
  125.   /MonoImageFilter { }
  126.   /MonoImageResolution { }
  127.         % Font embedding parameters
  128.   /AlwaysEmbed
  129.    { dup length 0 gt
  130.       { dup 0 get false eq
  131.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  132.          } if
  133.       } if
  134.    }
  135.   /NeverEmbed
  136.    { dup length 0 gt
  137.       { dup 0 get false eq
  138.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  139.          } if
  140.       } if
  141.    }
  142.   /EmbedAllFonts { }
  143.   /SubsetFonts { }
  144.   /MaxSubsetPct { }
  145. .dicttomark readonly def
  146. /.distillerdevice
  147.  { currentdevice .devicename /pdfwrite eq
  148.     { currentdevice }
  149.     { /pdfwrite finddevice }
  150.    ifelse
  151.  } bind def
  152. /setdistillerparams        % <dict> setdistillerparams -
  153.  { .distillerdevice null false mark 4 index
  154.     { //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse }
  155.    forall .putdeviceparams
  156.    type /booleantype eq { pop } { cleartomark pop pop pop } ifelse pop
  157.  } odef
  158. /currentdistillerparams        % - currentdistillerparams <dict>
  159.  { .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  160.  } odef
  161.  
  162. % Patch the 'show' operators to pass the data to the device.
  163. % We use a pseudo-parameter named /show whose value is a dictionary:
  164. %    /String (str)
  165. %    /Values [cx cy char ax ay px py]
  166. %    /Matrix [xx xy yx yy tx ty]
  167. %    /FontName /fontname
  168. %    /Encoding [e0 .. e255]
  169. %    /BaseEncoding [e0 ... e255]
  170. % Note that the cx/y and ax/y values are in text space, not user space.
  171. % We also fill an empty path in order to get the clipping region and
  172. % current color set properly.  THIS IS A BIG HACK.
  173. /.pdfknownfonts mark
  174.   /Courier null
  175.   /Courier-Bold null
  176.   /Courier-Oblique null
  177.   /Courier-BoldOblique null
  178.   /Helvetica null
  179.   /Helvetica-Bold null
  180.   /Helvetica-Oblique null
  181.   /Helvetica-BoldOblique null
  182.   /Symbol null
  183.   /Times-Roman null
  184.   /Times-Bold null
  185.   /Times-Italic null
  186.   /Times-BoldItalic null
  187.   /ZapfDingbats null
  188. .dicttomark readonly def
  189. .currentglobal false .setglobal
  190. /.pdfknownids 50 dict def
  191. .setglobal
  192. /.findorigfont {    % <font> .findorigfont <origfont>
  193.             % Check for a known font with the same name,
  194.             % or one of the 14 known names,
  195.             % and the same UniqueID.
  196.   dup /UniqueID .knownget {
  197.     .pdfknownids 1 index .knownget {
  198.       exch pop dup null ne { true } { pop false } ifelse
  199.     } {            % We haven't looked up the UniqueID yet.
  200.             % Register the UniqueIDs of all fonts.
  201.       .FontDirectory {
  202.     exch pop dup /UniqueID .knownget {
  203.             % Stack: font uniqueid somefont somefontid
  204.       exch .pdfknownids 3 1 roll put
  205.     } {
  206.       pop
  207.     } ifelse
  208.       } forall
  209.             % Register the UniqueIDs of the 14 built-in fonts,
  210.             % to make sure they override any other fonts
  211.             % with the same UniqueIDs.
  212.       .pdfknownfonts {
  213.     pop .FontDirectory 1 index .knownget {
  214.             % Stack: font uniqueid knownname knownfont
  215.       dup /UniqueID get exch .pdfknownids 3 1 roll put
  216.     } if pop
  217.       } forall
  218.             % Now see if the UniqueID is known.
  219.       .pdfknownids 1 index .knownget {
  220.     exch pop true
  221.       } {            % Record the UniqueID as not registered.
  222.     .pdfknownids exch null put false
  223.       } ifelse
  224.     } ifelse
  225.   } {            % This font has no UniqueID.
  226.     false
  227.   } ifelse
  228.             % Stack: font knownfont -true- | font -false-
  229.   {
  230.     exch pop
  231.   } {
  232.     { dup /OrigFont .knownget not { exit } if exch pop } loop
  233.   } ifelse
  234. } .bind def
  235. /setvmthreshold where { pop 1000000 setvmthreshold } if
  236. /.pdfdoshow        % <string> <cxd> <cyd> <char> <axd> <ayd> .pdfdoshow
  237.             %   <bool>
  238.  { mark /String 8 2 roll
  239. %vmstatus pop =only pop (, ) print
  240.    currentpoint transform 7 array astore /Values exch
  241.    currentfont .findorigfont
  242.         % Pass the original font name.
  243.    dup /FontName get
  244.    /FontName exch 3 -1 roll
  245.         % Concatenate the "quotient" of the current FontMatrix
  246.         % and the FontMatrix of the original font.
  247.         % Be sure to include any translation.
  248.    /Matrix
  249.      exch /FontMatrix get matrix invertmatrix
  250.      currentfont /FontMatrix get 1 index concatmatrix
  251.     % The matrix on the stack is now the font scaling matrix.
  252.     % Use it to inverse-transform cx/y and ax/y, so they will be in
  253.     % text space.
  254.     % Stack: mark /String <string> /Values <values> /FontName <fontname>
  255.     %   /Matrix <matrix>
  256.      4 index aload
  257.     %   ... cx cy char ax ay px py values
  258.      8 -2 roll 8 index idtransform 8 2 roll
  259.      5 -2 roll 8 index idtransform 5 2 roll
  260.      astore pop
  261.     % Now construct the combined matrix.
  262.      matrix currentmatrix dup 4 0 put dup 5 0 put dup concatmatrix
  263.    /Encoding currentfont /Encoding .knownget not { [] } if
  264.     % Make a reasonable guess at the base encoding.
  265.    /BaseEncoding StandardEncoding
  266. %vmstatus pop =only pop (, ) print
  267.    .dicttomark
  268.         % Set the clipping region and color in the output.
  269.         % This is another hack!
  270.    gsave newpath fill grestore
  271. %vmstatus pop =only pop (, ) print
  272.    /show .pdfputparams
  273. %vmstatus pop =only pop () = flush
  274.    dup type /booleantype eq
  275.     { pop pop true }
  276.     { dup /undefined eq
  277.        { cleartomark pop pop pop false }
  278.        { dup mark eq { /unknown /rangecheck } if
  279.      counttomark 4 add 1 roll cleartomark pop pop pop
  280.      /.pdfshow cvx exch signalerror
  281.        }
  282.       ifelse
  283.     }
  284.    ifelse
  285.  } .bind def
  286. /.pdfexecshow        % <proc> .pdfexecshow -
  287.  { matrix currentmatrix gsave nulldevice setmatrix
  288.    exec currentpoint grestore moveto
  289.  } .bind def
  290. /.pdfwrite?        % - .pdfwrite? <bool>
  291.  { currentdevice .devicename /pdfwrite eq
  292.    currentfont /FontType get 1 eq and
  293.  } .bind def
  294. % .pdfshow isn't an operator per se, but it still needs to be careful with
  295. % the stack so that the operators will have stack protection.
  296. /.pdfshow        % <string> <cx> <cy> <char> <ax> <ay> <showproc>
  297.             %   .pdfshow -
  298.  { 7 1 roll .pdfwrite?
  299.     { .pdfdoshow }
  300.     { 6 { pop } repeat false }
  301.    ifelse
  302.     { .pdfexecshow }
  303.     { exec }
  304.    ifelse
  305.  } .bind def
  306. /show
  307.  { dup 0 0 32 0 0 { show } .pdfshow
  308.  } .bind odef
  309. /ashow
  310.  { dup 0 0 32 6 index 6 index { ashow } .pdfshow
  311.  } .bind odef
  312. /widthshow
  313.  { 4 copy 4 1 roll 0 0 { widthshow } .pdfshow
  314.  } .bind odef
  315. /awidthshow
  316.  { 6 copy 6 1 roll { awidthshow } .pdfshow
  317.  } .bind odef
  318. /glyphshow where { pop } { (%END) .skipeof } ifelse
  319. /glyphshow
  320.  { .pdfwrite?
  321.     { currentfont /Encoding .knownget not { {} } if
  322.       0 1 2 index length 1 sub
  323.        {        % Stack: glyph encoding index
  324.      2 copy get 3 index eq { exch pop exch pop null exit } if pop
  325.        }
  326.       for null eq
  327.        { (X) dup 0 3 index put show pop }
  328.        { glyphshow }
  329.       ifelse
  330.     }
  331.     { glyphshow
  332.     }
  333.    ifelse
  334.  } .bind odef
  335. %END
  336. /.kshow1 {    % <index> <proc> <string> .kshow1
  337.   (X) dup 0 3 index 6 index get put show
  338.   2 index 1 index length 1 sub lt {
  339.     dup 3 index get exch 4 -1 roll 1 add get
  340.     3 -1 roll exec
  341.   } {
  342.     pop pop pop
  343.   } ifelse
  344. } .bind def
  345. /kshow {
  346.   .pdfwrite? {
  347.         % Construct a closure, and work character by character.
  348.     0 1 2 index length 1 sub 5 -2 roll
  349.     //.kshow1 /exec cvx 4 packedarray cvx for
  350.   } {
  351.     kshow
  352.   } ifelse
  353. } .bind odef
  354. % The remaining operators aren't implemented correctly.
  355. /xshow where {
  356.  pop /xshow { .pdfwrite? { 1 index show pop pop } { xshow } ifelse } .bind odef
  357. } if
  358. /yshow where {
  359.  pop /yshow { .pdfwrite? { 1 index show pop pop } { yshow } ifelse } .bind odef
  360. } if
  361. /xyshow where {
  362.  pop /xyshow { .pdfwrite? { 1 index show pop pop } { xyshow } ifelse } .bind odef
  363. } if
  364.